home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)t2.d64 / help-comal < prev    next >
Text File  |  2007-02-28  |  7KB  |  322 lines
  1. ├╧═┴╠ ╦┼┘╫╧╥─╙: (VERSION 0.14)
  2. 
  3. // -- ALLOWS COMMENTS IN A PROGRAM
  4.  //█<ANYTHING>▌
  5. 
  6. ┴┬╙ -- GIVES THE ABSOLUTE VALUE
  7.  ┴┬╙(<NUMERIC EXPRESSION>)
  8. 
  9. ┴╬─ -- LOGICAL ┴╬─
  10.  <EXPRESSION> ┴╬─ <EXPRESSION>
  11. 
  12. ┴╨╨┼╬─ -- START AT END OF SEQ FILE
  13.  ╧╨┼╬ █╞╔╠┼▌ <FILE#>,<FILENAME>,┴╨╨┼╬─
  14. 
  15. ┴╘╬ -- ARCTANGENT IN RADIANS
  16.  ┴╘╬(<NUMERIC EXPRESSION>)
  17. 
  18. ┴╒╘╧ -- AUTOMATIC LINE NUMBERING
  19.  ┴╒╘╧ █<START LINE>▌█,<INCREMENT>▌
  20. 
  21. ┬┴╙╔├ -- BACK INTO ┬┴╙╔├ MODE
  22.  ┬┴╙╔├
  23. 
  24. ├┴╙┼ -- MULTIPLE CHOICE DECISIONS
  25.  ├┴╙┼ <CONTROL EXPRESSION> █╧╞▌
  26. 
  27. ├┴╘ -- GIVES DISK DIRECTORY
  28.  ├┴╘ █<DRIVE NUMBER>▌
  29. 
  30. ├╚┴╔╬ -- LOAD & RUN PROGRAM ON DISK
  31.  ├╚┴╔╬ <FILENAME>
  32. 
  33. ├╚╥$ -- GIVES THAT NUMBERS CHARACTER
  34.  ├╚╥$(<NUMERIC EXPRESSION>)
  35. 
  36. ├╠╧╙┼ -- CLOSES FILES
  37.  ├╠╧╙┼ ██╞╔╠┼▌ <FILENUM>▌
  38. 
  39. ├╠╧╙┼─ -- ALL PROC/FUNC VARIABLES LOCAL
  40.  ╨╥╧├ <PROCNAME>█(PARAMS)▌ █├╠╧╙┼─▌
  41.  ╞╒╬├ <FUNCNAME>█(PARAMS)▌ █├╠╧╙┼─▌
  42. 
  43. ├╧╬ -- CONTINUE PROGRAM EXECUTION
  44.  ├╧╬
  45. 
  46. ├╧╙ -- COSINE IN RADIANS
  47.  ├╧╙(<NUMERIC EXPRESSION>)
  48. 
  49. ─┴╘┴ -- PROVIDES DATA FOR A ╥┼┴─
  50.  ─┴╘┴ <VALUE>█,<VALUE>▌█,...▌
  51. 
  52. ─┼╠ -- DELETES LINES
  53.  ─┼╠ <RANGE>
  54. 
  55. ─┼╠┼╘┼ -- DELETES A FILE FROM DISK
  56.  ─┼╠┼╘┼ <FILENAME>
  57. 
  58. ─╔═ -RESERVE/ALLOCATE STRING/ARRAY SPAC
  59.  ─╔═ <STRING VAR> ╧╞ <MAX CHAR>
  60.  ─╔═ <STR ARRAY>(<INDEX>) ╧╞ <MAX CHAR>
  61.  ─╔═ <ARRAY NAME>(<INDEX>)
  62. 
  63. ─╔╓ -- DIVISION WITH INTEGER ANSWER
  64.  <DIVIDEND> ─╔╓ <DIVISOR>
  65. 
  66. ─╧ -- DO THE FOLLOWING STATEMENTS
  67.  ─╧ <STATEMENTS>
  68. 
  69. ┼─╔╘ -- LIST LINES WITHOUT INDENTATIONS
  70.  ┼─╔╘ █<RANGE>▌
  71. 
  72. ┼╠╔╞ -- SHORT FOR ┼╠╙┼ ╔╞ CONDITION
  73.  ┼╠╔╞ <EXPRESSION> █╘╚┼╬▌
  74. 
  75. ┼╠╙┼ -ALTERNATIVE ╔╞ STRUC STATEMENTS
  76.  ┼╠╙┼
  77. 
  78. ┼╬─ -- HALT PROGRAM EXECUTION
  79.  ┼╬─
  80. 
  81. ┼╬─├┴╙┼ -- END OF ├┴╙┼ STRUCTURE
  82.  ┼╬─├┴╙┼
  83. 
  84. ┼╬─╞╧╥ -- END OF ╞╧╥ STRUCTURE
  85.  ┼╬─╞╧╥ █<CONTROL VARIABLE>▌
  86. 
  87. ┼╬─╞╒╬├ -- END OF FUNCTION
  88.  ┼╬─╞╒╬├ █<FUNCTION NAME>▌
  89. 
  90. ┼╬─╔╞ -- END OF ╔╞ STRUCTURE
  91.  ┼╬─╔╞
  92. 
  93. ┼╬─╨╥╧├ -- END OF PROCEDURE
  94.  ┼╬─╨╥╧├ █<PROCEDURE NAME>▌
  95. 
  96. ┼╬─╫╚╔╠┼ -- END OF ╫╚╔╠┼ STRUCTURE
  97.  ┼╬─╫╚╔╠┼
  98. 
  99. ┼╬╘┼╥ --MERGE PROGRAM SEGMENT FROM DISK
  100.  ┼╬╘┼╥ <FILENAME>
  101. 
  102. ┼╧─ -- ┼ND ╧F ─ATA FLAG
  103.  ┼╧─
  104. 
  105. ┼╧╞ -- ┼ND ╧F ╞ILE FLAG
  106.  ┼╧╞(<FILENUM>)
  107. 
  108. ┼╙├ -- STOP KEY PRESSED FLAG
  109.  ┼╙├
  110.  ╘╥┴╨ ┼╙├<TYPE>
  111. 
  112. ┼╪┼├ -- EXECUTE A PROCEDURE
  113.  █┼╪┼├▌ <PROCNAME>█(<PARAMETER LIST>)▌
  114. 
  115. ┼╪╨ -- NATURAL LOG E TO N
  116.  ┼╪╨(<NUMERIC EXPRESSION>)
  117. 
  118. ╞┴╠╙┼ -- PREDEFINED VALUE = 0
  119.  ╞┴╠╙┼
  120. 
  121. ╞╔╠┼ -- SPECIFIES A FILE IS TO BE USED
  122.  ╔╬╨╒╘ ╞╔╠┼ <FILE#>█,<REC#>▌: <VARLIST>
  123.  ╨╥╔╬╘ ╞╔╠┼ <FILE#>█,<REC#>▌: <VALLIST>
  124.  ╥┼┴─ ╞╔╠┼ <FILE#>█,<REC#>▌: <VAR LIST>
  125.  ╫╥╔╘┼ ╞╔╠┼ <FILE#>█,<REC#>▌: <VARLIST>
  126.  ╧╨┼╬ █╞╔╠┼▌ <FILE#>,<FILENAM>█,<TYPE>▌
  127.  ├╠╧╙┼ ██╞╔╠┼▌ <FILE#>▌
  128. 
  129. ╞╧╥ -- START OF ╞╧╥ LOOP STRUCTURE
  130.  ╞╧╥ <VAR>:=<START> ╘╧ <END> █╙╘┼╨ <S>▌
  131. 
  132. ╞╒╬├ -- START OF A MULTILINE FUNCTION
  133.  ╞╒╬├ <NAME>█(<PARAMS>)▌ █├╠╧╙┼─▌
  134. 
  135. ╟╧╘╧ -- GO TO LINE WITH THIS NAME
  136.  ╟╧╘╧ <LABEL NAME>
  137. 
  138. ╔╞ -- START OF CONDITIONAL ╔╞ STRUCTURE
  139.  ╔╞ <CONDITION> █╘╚┼╬▌
  140.  ╔╞ <CONDITION> ╘╚┼╬ <STATEMENT>
  141. 
  142. ╔╬ -- LOCATE STRING1 WITHIN STRING2
  143.  <STRING1> ╔╬ <STRING2>
  144. 
  145. ╔╬╨╒╘ -- INPUT FROM KEYBOARD OR FILE
  146.  ╔╬╨╒╘ █<PROMPT>:▌ <VAR LIST>
  147.  ╔╬╨╒╘ ╞╔╠┼ <FILE#>█,<REC#>▌:<VAR LIST>
  148. 
  149. ╔╬╘ -NEAREST INTEGER LESS THAN OR EQUAL
  150.  ╔╬╘(<NUMERIC EXPRESSION>)
  151. 
  152. ╦┼┘$ -SCAN KEYBOARD(NOT ╨┼╘ ├╧═┴╠ 0.14)
  153.  ╦┼┘$
  154. 
  155. ╠┴┬┼╠ -- ASSIGN LABEL NAME TO THE LINE
  156.  <LABEL NAME>:
  157. 
  158. ╠┼╬ -- GIVES THE LENGTH OF STRING
  159.  ╠┼╬(<STRING EXPRESSION>)
  160. 
  161. ╠┼╘ -- ASSIGN VALUE TO VARIABLE
  162.  :=   OR   :+    OR   :-
  163. 
  164. ╠╔╙╘ -- LIST PROGRAM
  165.  ╠╔╙╘ █<RANGE>▌ █<FILENAME>▌
  166. 
  167. ╠╧┴─ -- LOAD A PROGRAM FROM DISK
  168.  ╠╧┴─ <FILENAME>
  169. 
  170. ╠╧╟ -- NATURAL LOGARITHM OF N
  171.  ╠╧╟(<NUMERIC EXPRESSION>)
  172. 
  173. ═╧─ -- REMAINDER OF DIVISION (MODULO)
  174.  <DIVIDEND> ═╧─ <DIVISOR>
  175. 
  176. ╬┼╫ -- CLEARS PROGRAM FROM MEMORY
  177.  ╬┼╫
  178. 
  179. ╬╧╘ -- LOGICAL ╬╧╘
  180.  ╬╧╘ <CONDITION>
  181. 
  182. ╬╒╠╠ -- DOES NOTHING (NO OP)
  183.  ╬╒╠╠
  184. 
  185. ╧╞ -- PART OF ─╔═ OR ├┴╙┼ STRUCTURE
  186.  ├┴╙┼ <EXPRESSION> █╧╞▌
  187.  ─╔═ <STRINGVAR> ╧╞ <MAX CHAR>
  188.  ─╔═ <STRINGARRAY>(INDEX) ╧╞ <MAX CHAR>
  189. 
  190. ╧╨┼╬ -- OPEN A FILE
  191.  ╧╨┼╬ █╞╔╠┼▌ <FILE#>,<FILENAM>█,<TYPE>▌
  192. 
  193. ╧╥ -- LOGICAL ╧╥
  194.  <CONDITION> ╧╥ <CONDITION>
  195. 
  196. ╧╥─ -RETURN INTEGER REPRESENTING CHAR
  197.  ╧╥─(<STRING EXPRESSION>)
  198. 
  199. ╧╘╚┼╥╫╔╙┼ -- DEFAULT FOR ├┴╙┼
  200.  ╧╘╚┼╥╫╔╙┼
  201. 
  202. ╧╒╘╨╒╘ -- SELECT OUTPUT LOCATION
  203.  ╙┼╠┼├╘ █╧╒╘╨╒╘▌ <TYPE>
  204. 
  205. ╨┴╙╙ --PASS STRING TO DISK COMMAND CHAN
  206.  ╨┴╙╙ <DISK COMMAND>
  207. 
  208. ╨┼┼╦ -- LOOK AT MEMORY
  209.  ╨┼┼╦(<MEMORY ADDRESS>)
  210. 
  211. ╨╧╦┼ -- CHANGE MEMORY LOCATION
  212.  ╨╧╦┼ <MEMORY ADDRESS>,<CONTENTS>
  213. 
  214. ╨╥╔╬╘ -PRINT ITEMS TO SCREEN/PRINT/FILE
  215.  ╨╥╔╬╘ █╞╔╠┼ <#>:▌ █<ITEMS>▌
  216.  ╨╥╔╬╘ █╞╔╠┼ <#>:▌ ╒╙╔╬╟ <FORMAT>:<VAR>
  217.  (╥┴╬─╧═ FILE USE: █╞╔╠┼ <#>,<REC#>:▌)
  218. 
  219. ╨╥╧├ -- START OF MULTILINE PROCEDURE
  220.  ╨╥╧├ <NAME>█(<PARAMS>)▌ █├╠╧╙┼─▌
  221. 
  222. ╥┴╬─╧═ -- RANDOM ACCESS DISK FILE
  223.  ╧╨┼╬ ╞╔╠┼ <#>,<FILENAM>,╥┴╬─╧═ <RECLN>
  224. 
  225. ╥┼┴─ --READ DATA FROM ─┴╘┴ LINE OR FILE
  226.  ╥┼┴─ <VAR LIST>
  227.  ╥┼┴─ ╞╔╠┼ <FILE#>█,<REC#>▌: <VAR LIST>
  228.  ╧╨┼╬ █╞╔╠┼▌ <FILENUM>,<FILENAME>,╥┼┴─
  229. 
  230. 
  231. ╥┼╞ -PARM VAR USED IN REFERENCE IN PROC
  232.  ╥┼╞ <VAR>
  233. 
  234. ╥┼╬╒═ -- RENUMBER PROGRAM
  235.  ╥┼╬╒═ █<TARGETSTART>▌█,<INCREMENT>▌
  236. 
  237. ╥┼╨┼┴╘ -- START OF ╥┼╨┼┴╘ STRUCTURE
  238.  ╥┼╨┼┴╘
  239. 
  240. ╥┼╙╘╧╥┼ -- REUSE ─┴╘┴ WITH ╥┼┴─
  241.  ╥┼╙╘╧╥┼
  242. 
  243. ╥╬─ -- RANDOM NUMBER
  244.  ╥╬─(<NUM>)
  245.  ╥╬─(<START NUM>:<END NUM>)
  246. 
  247. ╥╒╬ -- RUN PROGRAM NOW IN MEMORY
  248.  ╥╒╬
  249. 
  250. ╙┴╓┼ -- RECORD PROGRAM ON DISK
  251.  ╙┴╓┼ <FILENAME>
  252. 
  253. ╙┼╠┼├╘ -- CHOOSE OUTPUT LOCATION
  254.  ╙┼╠┼├╘ █╧╒╘╨╒╘▌ <TYPE>
  255. 
  256. ╙╟╬ -- -1 IF NEG, 0 IF 0, 1 IF POS
  257.  ╙╟╬(<NUMERIC EXPRESSION>)
  258. 
  259. ╙╔╬ -- GIVES SINE IN RADIANS
  260.  ╙╔╬(<NUMERIC EXPRESSION>)
  261. 
  262. ╙╔┌┼ -REPORT ON FREE MEMORY
  263.  ╙╔┌┼
  264. 
  265. ╙╤╥ -- GIVES SQUARE ROOT
  266.  ╙╤╥(<NUMERIC EXPRESSION>)
  267. 
  268. ╙╘┴╘╒╙$ -- STATUS OF DISK CHANNEL
  269.  ╙╘┴╘╒╙$
  270. 
  271. ╙╘┼╨ -INCREMENT ╞╧╥ LOOP BY THIS AMOUNT
  272.  ╙╘┼╨ <NUMERIC EXPRESSION>
  273. 
  274. ╙╘╧╨ -- HALT PROGRAM EXECUTION
  275.  ╙╘╧╨
  276. 
  277. ╙┘╙ -- TRANSFER CONTROL TO MACHINE CODE
  278.  ╙┘╙(<MEMORY ADDRESS>)
  279. 
  280. ╘┴┬ -- PRINT SPACES TO SPECIFIED COLUMN
  281.  ╘┴┬(<COLUMN NUMBER>)
  282. 
  283. ╘┴╬ -- GIVES TANGENT IN RADIANS
  284.  ╘┴╬(<NUMERIC EXPRESSION>)
  285. 
  286. ╘╚┼╬ -- PART OF ╔╞ STRUCTURE
  287.  ╘╚┼╬
  288. 
  289. ╘╧ -INCREMENT ╞╧╥ VARIABLE START ╘╧ END
  290.  <START NUM> ╘╧ <END NUM>
  291. 
  292. ╘╥┴╨ -- DISABLE STOP KEY
  293.  ╘╥┴╨ ┼╙├<TYPE>
  294. 
  295. ╘╥╒┼ -- PREDEFINED VALUE OF 1
  296.  ╘╥╒┼
  297. 
  298. ╒╬╔╘ -- SPECIFY UNIT (DEVICE)
  299.  ╧╨┼╬ ╞╔╠┼ <FILE#>,<FILENAM>,╒╬╔╘ <DEV>
  300.        █,<SEC ADR>▌█,<TYPE>▌
  301. 
  302. ╒╬╘╔╠ -- END OF ╥┼╨┼┴╘ LOOP
  303.  ╒╬╘╔╠ <EXPRESSION>
  304. 
  305. ╒╙╔╬╟ --FORMATTED OUTPUT (NOT ╨┼╘ 0.14)
  306.  ╨╥╔╬╘ ╒╙╔╬╟ <FORMAT>: <VAR LIST>
  307. 
  308. ╫╚┼╬ -- CHOICE IN ├┴╙┼ STRUCTURE
  309.  ╫╚┼╬ <LIST OF VALUES>
  310. 
  311. ╫╚╔╠┼ -- START OF ╫╚╔╠┼ STRUCTURE
  312.  ╫╚╔╠┼ <EXPRESSION> █─╧▌ █<STATEMENT>▌
  313. 
  314. ╫╥╔╘┼ -- WRITE TO A FILE
  315.  ╫╥╔╘┼ ╞╔╠┼ <FILE#>█,<REC#>▌: <VARLIST>
  316.  ╧╨┼╬ █╞╔╠┼▌ <FILENUM>,<FILENAME>,╫╥╔╘┼
  317. 
  318. ┌╧╬┼ -- TAB INCREMENT
  319.  ┌╧╬┼ <TAB INTERVAL>
  320.  ┌╧╬┼
  321.  
  322.